home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconalb / startfor.frm < prev    next >
Text File  |  1999-10-17  |  6KB  |  184 lines
  1. VERSION 4.00
  2. Begin VB.Form StartForm 
  3.    BackColor       =   &H00008080&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   5490
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1515
  9.    ClientWidth     =   7650
  10.    FillColor       =   &H00008060&
  11.    Height          =   5895
  12.    Left            =   1080
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   366
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   510
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1170
  21.    Width           =   7770
  22.    Begin VB.Shape Shape1 
  23.       BorderColor     =   &H00000080&
  24.       BorderWidth     =   5
  25.       Height          =   5415
  26.       Left            =   0
  27.       Top             =   30
  28.       Width           =   7590
  29.    End
  30.    Begin VB.Label Label5 
  31.       Alignment       =   2  'Center
  32.       BackStyle       =   0  'Transparent
  33.       Caption         =   "stephan.swertvaegher@planetinternet.be"
  34.       ForeColor       =   &H00FFFF80&
  35.       Height          =   285
  36.       Left            =   1980
  37.       TabIndex        =   4
  38.       Top             =   3600
  39.       Width           =   3615
  40.    End
  41.    Begin VB.Label Label4 
  42.       Alignment       =   2  'Center
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Let's Rock !"
  45.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "Times New Roman"
  47.          Size            =   27.75
  48.          Charset         =   0
  49.          Weight          =   700
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   &H00008000&
  55.       Height          =   555
  56.       Left            =   2040
  57.       TabIndex        =   3
  58.       Top             =   4365
  59.       Width           =   3705
  60.    End
  61.    Begin VB.Label Label3 
  62.       Alignment       =   2  'Center
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "by Stephan Swertvaegher"
  65.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   13.5
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       ForeColor       =   &H0000C0C0&
  75.       Height          =   420
  76.       Left            =   1980
  77.       TabIndex        =   2
  78.       Top             =   2115
  79.       Width           =   3660
  80.    End
  81.    Begin VB.Label Label2 
  82.       Alignment       =   2  'Center
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Programmed October 1999"
  85.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  86.          Name            =   "MS Sans Serif"
  87.          Size            =   13.5
  88.          Charset         =   0
  89.          Weight          =   700
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       ForeColor       =   &H0000C0C0&
  95.       Height          =   420
  96.       Left            =   1845
  97.       TabIndex        =   1
  98.       Top             =   1800
  99.       Width           =   3930
  100.    End
  101.    Begin VB.Image Image2 
  102.       Height          =   3900
  103.       Left            =   135
  104.       Picture         =   "StartForm.frx":0000
  105.       Top             =   765
  106.       Width           =   1710
  107.    End
  108.    Begin VB.Label Label1 
  109.       Alignment       =   2  'Center
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "   Icon-Album Deluxe   VB4/32 Standard Edition"
  112.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  113.          Name            =   "MS Sans Serif"
  114.          Size            =   18
  115.          Charset         =   0
  116.          Weight          =   700
  117.          Underline       =   -1  'True
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H00FFC0FF&
  122.       Height          =   870
  123.       Left            =   1485
  124.       TabIndex        =   0
  125.       Top             =   585
  126.       Width           =   4650
  127.    End
  128.    Begin VB.Image Image1 
  129.       Height          =   3900
  130.       Left            =   5805
  131.       Picture         =   "StartForm.frx":20D7
  132.       Top             =   765
  133.       Width           =   1710
  134.    End
  135. End
  136. Attribute VB_Name = "StartForm"
  137. Attribute VB_Creatable = False
  138. Attribute VB_Exposed = False
  139.  
  140.  
  141.  
  142. Private Sub Form_Load()
  143. Call ColBar(StartForm, 10, 20, 128, 0, 0, 255, 0, 128)
  144. Call ColBar(StartForm, 336, 20, 128, 0, 0, 255, 0, 128)
  145. StartForm.Move (Screen.Width - StartForm.Width) / 2, (Screen.Height - StartForm.Height) / 2
  146. Label4.ForeColor = RGB(64, 64, 20)
  147. IconBook.Show
  148. IconBook.Enabled = False
  149.  
  150. End Sub
  151.  
  152. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  153. Label4.ForeColor = RGB(64, 64, 20)
  154. End Sub
  155.  
  156. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  157. Label4.ForeColor = RGB(64, 64, 20)
  158. End Sub
  159.  
  160. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  161. Label4.ForeColor = RGB(64, 64, 20)
  162. End Sub
  163.  
  164. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  165. Label4.ForeColor = RGB(64, 64, 20)
  166. End Sub
  167. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  168. Label4.ForeColor = RGB(64, 64, 20)
  169. End Sub
  170. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  171. Label4.ForeColor = RGB(64, 64, 20)
  172. End Sub
  173.  
  174. Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  175. StartForm.Hide
  176. IconBook.Show
  177. IconBook.Enabled = True
  178. End Sub
  179.  
  180. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  181. Label4.ForeColor = &HAACC&
  182. End Sub
  183.  
  184.